home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Macintosh Graphics Primer / Macintosh Graphics Primer / card_25534.txt < prev    next >
Text File  |  1990-12-05  |  5KB  |  183 lines

  1. -- card: 25534 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2792
  5. -- name: 32-bit 1
  6. ----- HyperTalk script -----
  7. on closecard
  8.   global maploc, cardloc
  9.   put word 1 of the short name of this card into maploc
  10.   put word 2 of the short name of this card into cardloc
  11. end closecard
  12.  
  13.  
  14. -- part 28 (button)
  15. -- low flags: 00
  16. -- high flags: 2000
  17. -- rect: left=458 top=317 right=342 bottom=485
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 18612 / 18612
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: next
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   visual dissolve
  29.   go next
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 29 (button)
  35. -- low flags: 00
  36. -- high flags: 2000
  37. -- rect: left=484 top=317 right=342 bottom=512
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 18613 / 18613
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: return
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   pop card into lastPush
  49.   if the short name of this stack is not in lastPush then
  50.     visual dissolve
  51.     go card "Map"
  52.   else
  53.     visual dissolve
  54.     go lastPush
  55.   end if
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 30 (button)
  61. -- low flags: 00
  62. -- high flags: 2000
  63. -- rect: left=428 top=317 right=342 bottom=456
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 18611 / 18611
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: prev
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   visual effect scroll right
  75.   go prev
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 31 (button)
  81. -- low flags: 00
  82. -- high flags: 0002
  83. -- rect: left=392 top=320 right=338 bottom=426
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 1500 / 1500
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Start-Up
  92. ----- HyperTalk script -----
  93. on mouseDown
  94.   global NAV_PATH, SYS_PATH, GTRACKINGDISABLED
  95.  
  96.   put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  97.  
  98.   -- simulate hiliting of two small buttons
  99.   repeat until the mouse is up
  100.     ---find out WHERE on the icon you clicked
  101.     put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  102.     if the mouseLoc is within the rect of the target then
  103.       if whereInBtn < 0 then
  104.         set icon of me to 1501
  105.       else
  106.         set icon of me to 1502
  107.       end if
  108.     else   -- outside of the button, reset default icon
  109.       set icon of me to 1500
  110.     end if
  111.   end repeat
  112.   set icon of me to 1500
  113.   if the mouseloc is not within the rect of me then exit mouseDown
  114.  
  115.   if whereInBtn < 0 then
  116.     --- the click was on the left so go to send feedback if it exists
  117.     if (GTRACKINGDISABLED = empty) or (GTRACKINGDISABLED = true) then
  118.       answer "‚ÄúCD Preferences‚Äù has not been installed." with "OK"
  119.       exit mouseDown
  120.     end if
  121.     --
  122.     if (GTRACKINGDISABLED = "Disabled") then
  123.       answer "The feedback mechanism has been disabled." with "OK"
  124.       exit mouseDown
  125.     end if
  126.     --
  127.     push card
  128.     put SYS_PATH & "CD Preferences" into feedPath
  129.     set cursor to watch
  130.     visual effect dissolve fast
  131.     go stack feedPath
  132.   else if whereInBtn > 0 then
  133.     -- if the click was on the right then go back to navigation stack
  134.     visual effect iris close to black
  135.     visual effect iris open
  136.     if NAV_PATH = empty then put "cd welcome of stack" && "the ‚ÄúNavigation Stack‚Äù" into NAV_PATH
  137.     -- make a prompt for "where is" if the global is empty
  138.     go NAV_PATH
  139.   end if
  140. end mouseDown
  141.  
  142. on mouseUp
  143.   -- kill any mouseups
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part contents for background part 9
  149. ----- text -----
  150. Macintosh Graphics Primer
  151.  
  152. -- part contents for background part 11
  153. ----- text -----
  154. market1
  155.  
  156. -- part contents for background part 4
  157. ----- text -----
  158. 32-Bit QuickDraw
  159.  
  160. -- part contents for background part 13
  161. ----- text -----
  162. Introduction
  163.  
  164. -- part contents for background part 5
  165. ----- text -----
  166.  
  167. Color QuickDraw was originally an upgrade of the original QuickDraw, designed to allow for enhanced color and grayscale support in modular Macintosh computers.
  168.  
  169. There was already a limited amount of color support built into the original QuickDraw.
  170.  
  171. Since QuickDraw is designed as a software standard and is not hardware dependent, it is easy to make such upgrades which can be used across the entire range of Macintosh computers.
  172.  
  173.  
  174. -- part contents for background part 14
  175. ----- text -----
  176. portable: market 2
  177. products: market 3
  178. portability: market 4
  179. Segments: market 5
  180. function: market 6
  181. characters: market 7
  182. positioning: market 8
  183. comparison: market 9